object Form02: TForm02
  Left = 370
  Top = 161
  Width = 600
  Height = 400
  Caption = 'Form02'
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 120
  Position = poScreenCenter
  TextHeight = 20
  object VPanel1: TBitBtn
    Left = 496
    Top = 24
    Width = 85
    Height = 33
    Caption = '&Panel1'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = VPanel1Click
  end
  object ScrollBox1: TScrollBox
    Left = 12
    Top = 4
    Width = 477
    Height = 361
    VertScrollBar.Range = 1000
    VertScrollBar.Position = 641
    AutoScroll = False
    TabOrder = 1
    object Panel1: TPanel
      Left = 0
      Top = -641
      Width = 462
      Height = 333
      Align = alTop
      TabOrder = 0
      object Memo1: TMemo
        Left = 32
        Top = 28
        Width = 397
        Height = 233
        Alignment = taCenter
        Font.Color = clNavy
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        Lines.Strings = (
          'Here are 3 Panels. Underneath them is a '
          'TScrollBox. '
          ''
          'By setting the Vertical Range the page'
          'is longer than the form'
          ''
          'These Panels can have any supported '
          'component on them and do not have to'
          'show on the screen to be printed.'
          ''
          'They can also have different heights'
          '')
        ParentFont = False
        TabOrder = 0
      end
      object Edit1: TEdit
        Left = 28
        Top = 300
        Width = 409
        Height = 26
        Font.Color = clBlue
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        Text = 'The first Panel ends just below this TEdit component'
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 32
      Width = 462
      Height = 327
      Align = alClient
      TabOrder = 1
      object Label3: TLabel
        Left = 88
        Top = 8
        Width = 270
        Height = 23
        Caption = 'This is the start of the 3rd Panel'
        Font.Color = clMaroon
        Font.Height = -20
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DBGrid1: TDBGrid
        Left = 16
        Top = 36
        Width = 437
        Height = 197
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TitleFont.Color = clBlack
        TitleFont.Height = -15
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
      end
      object Panel5: TPanel
        Left = 28
        Top = 244
        Width = 409
        Height = 73
        BorderStyle = bsSingle
        TabOrder = 1
        object DBImage1: TDBImage
          Left = 128
          Top = 8
          Width = 137
          Height = 57
          DataField = 'BMP'
          DataSource = DataSource1
          Stretch = True
          TabOrder = 0
        end
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = -308
      Width = 462
      Height = 340
      Align = alTop
      TabOrder = 2
      object Label1: TLabel
        Left = 32
        Top = 8
        Width = 393
        Height = 18
        Caption = 'The 2nd Panel starts just above this TLabel Component'
        Font.Color = clRed
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Shape1: TShape
        Left = 32
        Top = 152
        Width = 225
        Height = 105
        Brush.Color = clBlue
        Brush.Style = bsCross
        Shape = stEllipse
      end
      object Label2: TLabel
        Left = 104
        Top = 312
        Width = 223
        Height = 20
        Caption = 'This is the end of the 2nd Panel'
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object RadioGroup1: TRadioGroup
        Left = 28
        Top = 44
        Width = 229
        Height = 85
        Caption = 'RadioGroup1'
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        TabOrder = 0
      end
      object RadioButton1: TRadioButton
        Left = 64
        Top = 72
        Width = 113
        Height = 17
        Caption = 'RadioButton1'
        TabOrder = 1
      end
      object RadioButton2: TRadioButton
        Left = 64
        Top = 96
        Width = 113
        Height = 17
        Caption = 'RadioButton2'
        TabOrder = 2
      end
      object Panel4: TPanel
        Left = 268
        Top = 56
        Width = 185
        Height = 213
        BorderStyle = bsSingle
        TabOrder = 3
        object Image1: TImage
          Left = 40
          Top = 116
          Width = 105
          Height = 85
          Picture.Data = {<image000.bmp>}
          Stretch = True
        end
        object Memo2: TMemo
          Left = 16
          Top = 16
          Width = 157
          Height = 85
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Lines.Strings = (
            'Underneath this TMemo'
            'is another TPanel.'
            'Contents of all TPanel'
            'components are'
            'printed recursively'
            ''
            '')
          ParentFont = False
          TabOrder = 0
        end
      end
      object Button1: TButton
        Left = 24
        Top = 276
        Width = 413
        Height = 33
        Caption = 'Buttons are NOT printed - so they can appear anywhere'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        TabOrder = 4
        OnClick = Button1Click
      end
    end
  end
  object Exit: TBitBtn
    Left = 496
    Top = 308
    Width = 85
    Height = 33
    Caption = '&Exit'
    ModalResult = 1
    TabOrder = 2
    OnClick = ExitClick
  end
  object VPanel2: TBitBtn
    Left = 496
    Top = 60
    Width = 85
    Height = 33
    Caption = '&Panel2'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = VPanel2Click
  end
  object VPanel3: TBitBtn
    Left = 496
    Top = 96
    Width = 85
    Height = 33
    Caption = '&Panel3'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = VPanel3Click
  end
  object VAll: TBitBtn
    Left = 496
    Top = 144
    Width = 85
    Height = 33
    Caption = '&All - Diff'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = VAllClick
  end
  object AllSame: TBitBtn
    Left = 496
    Top = 188
    Width = 85
    Height = 33
    Caption = '&All - Same'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = AllSameClick
  end
  object BitBtn1: TBitBtn
    Left = 496
    Top = 228
    Width = 85
    Height = 33
    Caption = '&Landscape'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = BitBtn1Click
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 561
    Top = 274
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'ANIMALS.DBF'
    Left = 529
    Top = 274
    object Table1NAME: TStringField
      DisplayWidth = 15
      FieldName = 'NAME'
      Size = 10
    end
    object Table1SIZE: TSmallintField
      DisplayWidth = 13
      FieldName = 'SIZE'
    end
    object Table1WEIGHT: TSmallintField
      DisplayWidth = 18
      FieldName = 'WEIGHT'
    end
    object Table1AREA: TStringField
      DisplayWidth = 26
      FieldName = 'AREA'
    end
    object Table1BMP: TBlobField
      FieldName = 'BMP'
      Visible = False
      Size = 1
    end
  end
  object DBPrintWin1: TDBPrintWin
    About = 'Version 5.32'
    AboutRegistered = 'TOM SNIDER'
    HeaderFont.Color = clWindowText
    HeaderFont.Height = 16
    HeaderFont.Name = 'Arial'
    HeaderFont.Style = []
    Font.Color = clWindowText
    Font.Height = 16
    Font.Name = 'Arial'
    Font.Style = []
    FooterFont.Color = clWindowText
    FooterFont.Height = 12
    FooterFont.Name = 'Arial'
    FooterFont.Style = []
    FrameObjects = True
    clBtnFaceAsWhite = True
    OutputTo = poViewer
    Orientation = Default
    Units = poInches
    ViewButtonVisible = False
    ShowCancelDialog = True
    LineWidth = 0
    Copies = 1
    GridBackDrop = False
    GridBackDropUnits = poInches
    ZoomPercentage = 25.000000000000000000
    HeaderTop = 0.500000000000000000
    HeaderLeft = 0.500000000000000000
    HeaderStringLeft = '                                  '
    HeaderStringCenter = '                                  '
    HeaderStringRight = '                                  '
    HeaderEnabled = True
    HeaderOutlined = False
    HeaderFilled = False
    TextColor = clBlack
    ViewBkColor = 11234567
    ViewHeading = 'Printit Viewer'
    HeadingColor = clSilver
    FrameStyle = frThin
    FooterTop = 10.170000000000000000
    FooterString = '                                                  '
    FooterEnabled = True
    FooterOutlined = False
    FooterFilled = False
    FixSansSerif = True
    FooterStringLeft = 'Printed on @Date at @Time'
    FooterStringRight = 'Page @Page'
    BorderLeft = 0.500000000000000000
    BorderRight = 0.500000000000000000
    LineSpacing = 2.800000000000000000
    Left = 397
    Top = 25
  end
end